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SUMMARY 

This report is a user's guide for DTIZE, a Z-diniensional digitizing program 
with grapliical editing capability. DTIZE provides the capability to 
simultaneously create and display a picture on the display screen. Data 
descriptions may be permanently saved in three different formats. DTIZE creates 
the picture graphics in the locator mode, thus inputting one coordinate each 
tine the terminator button is pushed. Graphic Input devices COIN) are also used 
to select function commands from a command menu. These menu commands and tfie 
program's interactive prompting sequences provide a complete capability for 
creating, editing, and permanently recording a graphical picture file. 

DTIZE is written in Fortran IV language for the Tektronix 4081 graphics 
system utilizing tiie Plot 80 Distributed Graphics Library (DGL) subroutines. 

The Tektronix 4953/4954 Graphics Tablet with mouse, pen, or joystick are used as 
Graphics Input devices to create picture graphics. DTIZE runs under the control 
of the Tektronix 4081 Graphic Operating System (GOS) with extended GIN features 
(needed for DGL graphic input routines). 


INTRODUCTION 

DTIZE is a 2-dimensional digitizing program with graphical editing 
capability which provides the capability to simultaneously create and display a 
picture on the Tektronix 4081 display screen. The data descriptions may be 
permanently saved in three different formats. The first format records the 
window coordinates, x and y coordinates, and a code word which describes the 
connectivity characteristics l)etween data points. The connectivity information 
defines a move or a draw between each point and vdiether a solid or dashed line 
is to be drawn. This format is used by DTIZE for redisplaying, editing, and 
adding to a previously existing picture file. The second format is the Picture 
Data Base (PDB) format which is compatible v/ith tiie ud^tronix 4081 Graphics 
r :;.ction Manager (GFM) utility program. FM routines may be used for further 
picture editing and for tfie addition of alphanumeric text. The third format is 
the Plot (PLT) format and is compatible with GOS for displaying the picture. 

DTIZE creates the picture graphics in the locator mode. This means that 
one coordinate is input eacEi time the terminator button for the mouse, pen, or 
joystick is pushed. The GIfl devices are also used to select function commands 
from a command menu shown in figure 1. These menu commands and the program's 
interactive prompting sequences provide a complete capability for creating, 
^i.'itiug, and pemanGiuly i'-.!Cording a grapiiical picture file. 

DTIZE is v/ritten in Fortran IV language for the Tektronix 4081 graphics 
system utilizing the Plot 80 Distributed Graphic Library (DGL) subroutines. The 
program listing is given in appendix A. The Tektronix 4081 hardware is shov^n in 
figure 2. The Tektronix 4953/4954 Graphics Tablets with mouse or pen and the 
joystick are used as Graphic Input devices (GIN) to create picture graphics. 
DTIZE runs under the control of the Tektronix 4081 Graphic Operating System 
(GOS) with the extended GIN features (needed for DGL graphic input routines). 
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USE OF THE TEKTRONIX 4081 REFRESH CAPABILITY 

As an operator digitizes a picture from the tablet (or inputs with the 
joystick), an image appears on the display monitor in refresh. Up to 25 points 
can be selected before this portion of the picture is automatically fixed, on 
the screen and written to disk. As a program option, DTIZE permits the refresh 
portion to be fixed at any time during a digitizing session, DTIZE Pias editing 
features which allow backup or rejection of the refresh portions of the picture 
and v/ill also allow removal of one line at a tine in the fixed portion of the 
picture. 

Program Files 

The operational program consists of two files, DTIZE. OBJ and DTIZE. LIB, 
vjhich should be stored on the Tektronix 4081 user disk. Under GOS with DGL 
graphics, DTIZE is started by typing RUN DTIZE(cr). The program will prompt for 
user action at the bottom of tlio display screen. 


Output File 

The first prompt will ask for the name of the file to vdiich the graphical 
data are to be written for storage. This file can be any name (6 char, max) 
with any extension (3 char. max). DAT is the default extension. The file will 
bo written on the user disk and cannot be put in a library. 

Ex: PICTl (Extension will be set to DAT) 

TRIAL. CCT 

CCT/PIC (ilot a valid name) 

The prompt will then ask if a file is being created or if a file previously 
created will bo used. If creating a file, 300 blocks of space will be allotted 
for the output file. There is a i)uilt-in program check which will report to the 
monitor v/hen 295 of these blocks have been filled. A warning message will also 
be displayed with a bell sound. It is the user’s responsibility to open a new 
file v/ith more space and copy the file to this new file. If adding to a file 
already created, the REDRAll command must be picked from the menu as the first 
command following tfie prompt which tells the user that he is ready to digitize. 


Reference Axis 

A small reference axis will l>e drav/n in the lov/er left corner of the 
display screen, R and S are tlie reference axis names. The program will prompt 
the user to specify the x, y or z orientation axis in relation to R. An x, y, 
or z is then entered from the keyboard. The next prompt asks that an x, y or z 
axis be specified in relation to S. An x, y, or z is then entered. There is a 
built-in program ciieck vdiicii will not allow R and S to be the same. The prompt 
then asks for a constant for the third dimension. At the present time, this 
constant is not used and is for future enhancement of the program to 
3 dimensions. The R and S will l)e replac!::i on ti'-o small reference axes 1:0 
coincide with the user's specified coordinate system. 


Window Coordinates 

The next prompts will ask for minimum x, minimum y, maximum x and maximum 
y. These define the range of coordinates along each axis in the coordinate 
plane. THERE ARE NO DEFAULT VALUES, The tablet and display window are set to 
these values. The program automatically proportions the viewport relative to 
the input values for the window coordinates. If the file is an existing file, 
there will be no prompt for the window coordinates. They will be read from the 
input file. 
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Skew Correction 

There is a prompt which queries whether or not a digitizing tablet skew 
correction is v/anted. If the ciioico is y, the prompt will toll the user to 
enter with the mouse or pen in the following corners of the desired area: lower 
left, lower right and upper right. Uhen these three points have been entered, a 
bell will ring. 


Menu Location 

The menu may be placed vertically on the left or right side of the digitiz- 
ing tablet. The next prompt will ask that the lov/er left corner and the upper 
right corner of the menu be entered with the mouse or pen. 


Digitizing 

The next prompt will be a statement that digitizing may begin. From this 
point, the mouse or pen may be used to input points. The program is written in 
locator mode, and a line is dravm betv/een points as they are input. To pick 
from the menu, the mouse or pen is moved to the menu portion of the tablet and a 
point is input within the box for the function to be performed. Prompts are 
displayed at the bottom of the screen to show which function has been picked. 
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m\u 

The menu (fig. 1) is a rectangular area made up of 15 boxes of which 13 are 
menu commands and 2 are blank for future use. By using the menu, the current 
picture can be added to and edited in several ways. The menu for the tablet is 
dravm on paper and placed vertically on the left or right side of the tablet. 

One box in the menu will allow the joystick to be chosen for editing or addition 
purposes. In this cas6, the menu appears on the right side of the display 
screen. A detailed explanation of each of the 13 menu commands is given in 
the following paragraphs. 


Accept 

This command causes the refresh portion of the current picture to be 
v/ritten into, the data base and to be displayed in fixed mode on the display 
screen. When control is returned, the last point chosen will be the location 
from vmich the next move or draw will take place, ACCEPT is automatically 
picked after 25 points are chosen. 


Reject 

This command will cause the current refresh portion of the drawing to be 
cleared off the screen and return to the last point chosen before the refresh 
portion started. 


Continue 

This command will blink the last line drawn in refresh with an 'x' display 
ed at the last point chosen. 


Backup 

This command will cause the last vector drawn in the refresh portion of the 
picture to be removed. 


Locate 

This command causes a move to the next point chosen rather than a draw. 
The circle and spline commands return to locate mode after execution. 


Remove 

This conmand will allow removal of one vector at a time in the fixed 
mode portion of the picture. After the vector is removed, the picture is 
automatically redrawn. 


Line 

The default mode for vector display is a solid line. If, at some time, the 
mode is changed to dash, this command will return to solid line mode. 
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Dash 

This will cause vector output to be dashed lines using the default mask 
stored in the computer. 


Spline 

Upon entrance, the refresh portion of the picture is changed to fixed mode 
and the points are stored on the output data file. This command will allow 
points to be picked along a curved line and then will fit a spline through the 
points using a spline routine acquired from Eglin AFB incorporated in the 
program. Up to 20 points on a curve can be input or as few as three. If 20 
points are input, the program will automatically draw a spline in refresh, but 
if fev/er than 20 points are picked, SPLIUE must be rechosen from the menu by the 
user to show he is finished. The fit can be improved by picking points closer 
together and a peak will be reached better if the peak point and a near point on 
each side of the peak are chosen. The user is given the opportunity to accept 
or reject the spline. If accepted, the curve points are written into the data 
base and the curve is displayed on the screen in fixed mode. The program is 
returned to LOCATE mode. If rejected, an opportunity is provided to rechoose 
points. If the user decides not to draw a spline, the EXIT command can be 
selected from tin; menu list v/hicli permits another conmand to be chosen from the 
menu to continue the digitizing session. 


Circle 

The refresh portion of the picture is changed to fixed mode and the points 
are stored on the data file upon entering the circle subroutine. This command 
will allow a circle to be drawn using the DGL circle routine. A prompt asks 
that the center of the circle and one point on the circle be digitized. As with 
the spline, the user makes the choice whether to keep the circle. If accepted, 
the curve is written into the data base and the circle is displayed in fixed 
mode. If rejected, the opportunity to digitize the center of the circle and a 
point on the circle is given. If the user decides not to draw a circle, the 
EXIT command may be picked as with the SPUME, Upon leaving this routine, the 
program returns to LOCATE mode. 


Redraw 

This command will erase the screen and redraw both the fixed and refresh 
portions of the picture. It is best to redraw the picture several times 
during a digitizing session as this will save the file. If the computer should 
fail for some reason, the data will not be lost. 


Joy 

This command will allow the joystick to be used with the same menu as the 
one used for the tablet. This command is replaced by TABLET on the display 
screen and will allow return to the tablet and mouse. The menu appears on the 
right-hand side of tfie display screen in refresh. The cursor is a box. 


Exit 

This command will v/rite the refresh portion to the data base file and will 
then ask if a picture data base (PDB) file is desired. If a PDB file is wanted, 
it is v^ritten and stored under the user's file name with the PDB extension, A 
GFM workspace file (WSP) that has the correct window and viewport with a ViSP 
extension will also be written. If the PDB file is used in GFM, the workspace 
file (WSP) file should be loaded with GFM, The user will also be asked if a 
plot file is wanted. If so, it will be stored under the user's file name with 
the PLT extension. 
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A session UITII DTIZE 


Tile following is a tutorial session with DTIZE. It will lead the user step 
by step through several cornniands. At the end of the tutorial , the user should 
experiment by trying to complete the drawing, A copy of the sample picture 
(fig. 3) should be placed on the graphics tablet anywhere except over the menu 
area. 


Getting Started 

To start, RUM DTIZE (cr) is entered from the keyboard. Prom this point, 
prompts will appear across the bottom of the display screen to direct the user's 
actions. In order to distinguish between prompts and input, the prompts will be 
in upper case letters and the inputs will be lower case letters. 


HIT (CR) TO conTinuE 

(Depress the carriage return.) 

INPUT NAME OF FILE TO SAVE DATA 

shuttle (The extension DAT will be added automatically.) 

INPUT "C" FOR CREATING OR "P" FOR PERMANENT 
c 

A small axis will appear in the lower left-hand corner of the screen. The 
horizonal direction will be marked with an R and the vertical direction will be 
marked with an S. The user will then be prompted. 


ENTER RELATIONSHIP OF X,Y,Z TO R 


X 


ENTER RELATIONSHIP OF X,Y,Z TO S 

y 

ENTER CONSTANT Z (If the user had entered y and z as his R and S this 

prompt v7ould have queried ENTER CONSTANT X.) 


0,0 


ENTER MINIMUM X 
-30,0 

ENTER MINIMUM Y 
-17.0 

ENTER MAXIMUM X 
30 

ENTER tIAXIMUM Y 
17. 
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DO YOU WANT SICEU CORRECTIOfI? 

TYPE "Y" FOR YES OR "N" FOR MO 

y 

ENTER LOWER LEFT CORNER OF PICTURE 
ENTER LOWER RIGHT CORNER OF PICTURE 
ENTER UPPER RIGHT CORNER OF PICTURE 

(At this point, enter coordinates PI , P2, and P3 on the picture 
with the mouse or pen. A bell will ring when throe coordinates 
have been entere! and a prompt will ask for more information.) 


ENTER LOWER LEFT CORNER OF MENU 
ENTER UPPER RIGHT CORNER OF MENU 

(Enter the above coordinates on the menu.) 

YOU ARE NOW READY TO DIGITIZE YOUR PICTURE. 

(The program now has all the necessary information to allow 
a picture or design to be drawn.) 


Drawing The Design 

The mouse should be placed on A in the example picture and the terminator 
pushed to enter the coordinates. Point B is entered and a refresh line will 
appear on the display screen. LOCATE is chosen from the menu and points C and D 
are entered. After picking SPLINE from the menu, the prompt YOU MUST PICK 3 
POINTS BUT NO MORE THAN 20 will appear at the bottom of the disi>lay screen, 
liitii the mouse or pen, the points labeled on the example as 1,2,3. . . 10 are 
entered. SPLINE is again picked from the menu to indicate that all points have 
been entered. A refresh spline fit along with the points will appear on the 
screen. The prompt DO YOU WANT TO KEEP SPLINE? will appear at the bottom of 
the screen. A yes (y) or no (n) is entered from the keyboard. In this sample 
session, the user should enter a y. The user should be aware that when SPLINE 
was picked from the menu, the refresh portion of the picture became fixed. 

SPLINE is again picked from the menu and points 11, 12. . . , 30 are entered. 
Twenty points have been picked and the program will automatically draw a spline 
in refresh, A y should be the answer to the prompt DO YOU WANT TO KEEP 
SPLINE?. After DASH and LOCATE are selected from the menu, the points E, F, 
and G are entered with tfie mouse or pen, G should not have been input 
before LOCATE v/as again picked from the menu. To eliminate the unv/anted line, 
the BACKUP command is picked from the menu and then LOCATE. G and H can now be 
input. Pick ACCEPT from the menu and the refresh portion of the picture becomes 
fixed. The small circle on the side of the example can be drawn by picking 
CIRCLE from the menu and following the prompts. The user should continue until 
the example is finished, and then choose EXIT in the menu. At this point the 
following prompts will appear. 

DO YOU WANT A PDB FILE? 

y (A picture data base file will be v/ritten for you along with a 

vyorkspace file. When the picture is drawn in GFM, the workspace 
file must be loaded as it will set the correct window and viev/- 
port.) 

DO YOU WANT A PLT FILE? 

y (A plot file is v/ritten which can be displayed with the command: 

DISPLAY file name.) 

There are now four files v/hich will allow returning to DTIZE to edit 
or add to the picture, going to GFM to ‘edit or add text, and displaying the 
PLT file on the screen in GOS. 
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APPLICATIONS 

The DTIZE program creates a numerical data base of x, y points which can be 
formatted as input to any applications program requiring this type of data* 

Potential applications include digitizing node points to pass to a finite 
element model ing program, digitizing contour lines from maps, and using DTIZE 
to create the model geometry of spacecraft or other designs. 


CONCLUDING REflARKS 

DTIZE, a 2-dimensional digitizing program with graphical editing 
capability, enables in sinul taneoiisly creato and display a picture on 

the display screen. Menu commands and the program's interactive prompting 
sequences provide a complete capability for creating, editing, and permanently 
recording a graphical picture file, DTIZE is v/ritten in Fortran IV language for 
the Tektronix 4001 graphics system utilizing the Plot 80 Distributed Graphics 
Library (DGL) subroutines. The Tektronix 4953/4954 Graphics Tablet with mouse, 
pen, or joystick are used as Graphics Input devices to create picture graphics, 
DTIZE runs under the control of the Tektronix 4081 Graphic Operating System 
(GOS) vnth extended GIN features (needed for DGL graphic input routines). 

This report is a user's guide for the interactive digitizing and 
graphical editing program. Program functions and menu commands are described 
and an example design is outlined and drawn. Potential applications include 
digitizing node points to pass to a finite element model ing program, digitizing 
contour lines from maps, and creating the model geometry of spacecraft or other 
designs. 
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Fig 1 - Menu For Tablet 

This is a PDB file by the name of MENUDT PDB. If can be 
instanced in CFM and scaled up or down depending on the size 
tablet being used. 





Fig. 2 - 4081 Hardware 





APPENDIX A 


Listing For Code 'DTIZE 




c 


c 

c 


c 

c 

c 

c 

c 


c 


PROGRAM DIGIT 

IMPLICIT INTEGER»2 ^ ^ 

INTEGER*! IOO,KORDI25J >IRI2) ,15(21 ,ISKW,ILIN£ .NAf^lLHS) ,CR 
INTEGER*! F1LE,C,P,Y _ 

COMMON USKET(2,31 ,IR ,15 .ISEGtSI ,1P05(6) ,ISAW XONST ,IT ,IP0RT(4J 


COMMON /MENU/1XY(2J ,IDIAGI4 i .NT ,100 ,IM .PTXKJF (25 1 ,PTY8UF(25l , 
AMORD .ILINE .NAMFIL ,IYL0CC16) ,IXMIN,IXMAX ,I YMIN ,!YMAX ,WOI AC(4 J 
COMMON /POBCOM/LUFlLE ,MOUM( J33 I 
LOGICAL I5TAT13I 
EXTERNAL EOCET 
DATA C/'CV ,P/'P'/ ,y/'Y V 
DATA CR/X'0O'/,NEWJSW/X'0038V 



call BFDEV (0,'OC ') 

CALL GONEW (01 

CALL BFCEV {2,'JB2 '1 

CALL 8FDEV (5 ,'JOY ' ) 

ACCE5S OVERLAY FILE 

CALL 3FACT (8 , 'DTlZc/OVER LI3 M 

CALL OVLU (6) 

CALL OVLiNK ('TITLE ') 

CHANGE DEFAULT EXTENTICN OF FILES TO DAT 
CALL BFOEX ('DAT '3 


INITIALIZE REFRESH EDITOR SEGMENTS AND POSTIONS 

ISEGin-6 

1 SEC (2 3-7 

ISEG133-8 

IPOSn 1—20000 

IPOS (2 1—23500 

IP0S(3 1—20000 

IP0SI4 1—22500 

IP0S(5 1—20000 

IPOS 10 1—21 500 

1R(21-13 

ISC21-13 

CALL ASRNEW (EOCET 1 
CALL EJSV (II .NEWiSV) 

CALL EONEV nSEC,IP0S,21 

CALL EDPUT ('IW»UT NAME OF FILE TO SAVE DATA' .31 1 
CALL EDPUT tCR ,1 1 
CALL ASRAN (NAJ^IL,1S1 
CALL EDPUT (CR ,1 1 

CALL EDPUT ('INPUT "C" FOR CREATING OR ”P" FOR PERMANENT ' ,431 
CALL EDPUT {CR,1» 

CALL ASRAN (FILE, 11 
CALL EDCLO 

IF (FILE :EQ. Cl CALL BFHEV (5, NAMFIL ,3001 
IF (FILE EQ. PI CALL BFACT (3 .NAMFIL > . T . 1 


H* 


C 

C 


DRAU REFERENCE AXIS 



uu o uuu 


CALL OVLINK C 'REFAX5 '1 

SET W I r^DOW .VIEWPORT .CREATE CURSOR SEGMENT, AND SKEW? 
CALL OVLIW C ‘SETUP *) 

5 CALL OVLKa [‘ITA3 

IF UDO EQ n CO TO 10 
CALL OCISEL tLUJ 
IF (LU EQ 2i CO TO 5 
CALL OVLINK J'UOY 'J 
IF (IDO EQ 1 1 GO TO 10 
CO TO 5 

CHECK TO SEE IF PD8 AND/OR PL T FILES WANTED 

10 CALL OVLINK ( 'PDBPLT ' 1 
STOP 
END 



nnno 


,SI«R0UTINE CRFLST (lEXTJ 

THIS R(^Tlh:E CHECKS TO SEE KOV MANY BLOCKS OF DATA HAVE BEEN 

vRiTTENpON^Ti^ Output file 

* -ntercTT^fNTEGER*2 U-N,»l 
iTJtIfeNSIjON fCmSJ 

VrNTE(Xf*l i^,M0R0t25} ,IR(2J ,IS 12 ) ,!SKW ,1LINE .NAf^lLMS) ,CR .FILE 
. COMMON USkBT 42 ,5?'^rR4tSQT'SEG;e2a ,reOSC-4 J »ISKtf .CONST ,IT ,IPORT 141 , 
i]Vl£WT4>^fi^ 

ixCO^ON *^EI^ll/|‘XYt2) .ID1AG14) ,NT ,100 ,1M .PTXBUF1251 ,PTYBUFl25) , 
AMOROViLfNE^^FlL ,IYL0CII6J ,IXMIN .IXMAX ,IYMIN,IYMAX ,W0IAGI41 

iCALL.:QAFExf?JC3 .lEXTJ 

-iF^ItEXTil )-fiXT!2) LT. 5) CO TO 15 

^RETURN^ ■ 

lSiCAllli-^8E§L ^ . CO- „0 

.. rCKiL^^ORaT feR;a^5 
^CALL'EDPUTSI^YQU HAVE USED ' 1 

CCALL"EDPJT? HEXT ( 2 ) , n 

yCALL^EO?UTU^?-3£©CKSAOFCTHE«OT3 3?0\?F3 - *2^ ^ 

- yCALL''EDPuT '■ ClEXT ( 1) ,1 ) 

-CALL EbPUT^^I' BLOCKS SAVED FOR ',18) 
aCall 'EOpuWnahfil ,15) 
r RETURN y V 

i Pktn '■■Si- 




SUBROUTINE TITLE 
IMPLICIT INTEGERS U-N.-l 
INTEGER* 1 ICONT 
DIMENSION 1XYI2L 

CALL BFOEV (0 ,'OC ') 

CALL CONEW (0) 

CALL ERASE 
1XY(1 1—28080 
IXY 12]— 21080 
CALL YTSCA 161 
CALL OPEN IS0J 
CALL VMOVE (!XY) 

CALL VTEXT I'DTIZE IS A DIGITIZING PROGRAM USING DCL ROUTINES' ,48) 
CALL POST £503 
5 IXYX23-lXYf2I+10 
CALL VPLACE (50»IXyi 
IF IIXY123 LT. 3000J GO TO 5 
CALL FIX 150) 

CALL DELETE tS05 
IXV (2 3—21000 
CALL OPEN tSl 3 
CALL VMOVE IIXY) 

CALL VTEXT I 'CREATED AT NASA/L ANCLE Y . HAMPTON, VA ',37) 

CALL POST tSI 3 
10 IXYl23-IXYt23*10 
CALL VPLACE tSI ,JXY) 

IF MXY123 LT. 0) CO TO 10 

CALL FIX iSn 

CALL DELETE tSl 3 

IXY 12 3—21000 

call OPEN (52) 

CALL VHOVE lIXY) 

CALL VTEXT 1 'BY CAROLYN C. THOMAS SSD/SEB ' ,32 3 
CALL POST (523 
15 lxYi2l-IXY(2)+10 
CALL VPLACE <52, IXY 3 
IF CJXY{23 LT -30083 GO TO 15 
CALL FIX (52) 

CALL DELETE 1523 
IXY(2 3— 21000 
IXY12)— 21080 
CALL OPEN (54) 

CALL VMOVE nXYl 
CALL VTSCA J3) 

CALL VTEXT I 'HIT ICR 1 TO CONTINUED, 20) 

CALL POST (54) 

READ (1,1) ICONT 
r FORMAT (An 
CALL DELETE 154) 

CALL ERASE 

RETURN 

END 



c 

c 

c 

c 


SUBROUTINE REFAXS 
IMPLICIT INTEGERS U-N**! 

1 NTECER»2 X YHOV <1 0 ) ,X Y AX (1 2 1 

1NTECER»1 lAXIS(S) >TEXT1 (551 ,T£XT2C551 ,TEXT3(27J .FILE 
INTEGER*! IDO ,MORDt25l »IRt2l ,1S(2) ,ISK« .ILINE .NAMFILMS) ,CR 
COMMON USAET (2 ,31 »I« ,1S ,ISEG13) ,IP0S(6J ,ISKW .CONST ,IT ,IP0RT(4) 

*C0MWN^/MEW/IXY12) ,IDIAG14) ,NT ,100 ,IM ,PTXBUFl2S) »PTYBUF125J , 
4M0RD, ILINE .NAMFIL .lYLOCnO .IXMIN.IXMAX ,IYM1N .lYMAX .WOIAG 

external edget ^ 

OAT A X YHOV/-24000 1 6000 ,0 ,300 ,0 ,-300 ,0 , ! 500 , 1 500 1 500/ 

DATA XYAX/-150 150 ,150 ,0 ,-3000 ,150 ,150 ,-150 ,-3000 ,0 ,150 ,150/ , 

ilAXiS/'R' ,'S' ,'X' ,'Y' ,'ZV,CR/13/ , ,,, 

DATA TEXT1/ 'ENTER RELATIONSHIP OF X , Y , Z TO R * ,1 3/ , 

ATEXT2/ -ENTER RELATIONSHIP OF X, Y, Z TO S' ,13/, 

3TEXT3/-R AXES CANNOT EQUAL S AXES* ,13/ 


DRAW 

REFERENCE AXIS 

IH-1 



lV-2 



CALL 

OPEN 

(1 1 

CALL 

VABS 

( . TRUE . 1 

CALL 

VMOVE 

tXYMOV) 

CALL 

VABS 

I false ) 

CALL 

VORAlrf 

(XYAXl 

CALL 

VMOVE 

iXYMOVMll 

CALL 

VDRAV 

JXYAX(2) ,31 

CALL 

VMOVE 

IXYM0V(6)J 

CALL 

VORAV 

(XYAX(7n 

CALL 

VMOVE 

ixYMOvisn 

CALL 

VORAV 

IXYAX 1 

CALL 

VMOVE 

1XYM0V151 1 

CALL 

VORAV 

IXYAXI71 ,3) 

CALL 

VMOVE 

IXYMOViSn 

CALL 

VORAV 

IXYAX(21) 

CALL 

POST 

(11 

2 CALL 

OPEN 

(2) 

CALL 

VTSCA 

(31 

CALL 

VABS 

(TRUE 1 

CALL 

VMOVE 

IXYMOVl 

CALL 

VABS 

I FALSE 1 

CALL 

VMOVE 

(XYAXl 181) 

CALL 

VTEXT 

(lAXISnV) ,1 1 

CALL 

VABS 

( TRUE . 1 

CALL 

VMOVE 

(XYMOVl 

CALL 

VABS 

( FALSE . ) 

CALL 

VMOVE 

IXYMOVtOn 

CALL 

VMOVE 

(XYAX(3U 

CALL 

VTEXT 

(lAXlSUH! ,1 ) 

CALL 

POST 

(21 


IF (IH NE 1 ANO IV NE. 21 CO TO 13 
9 CONTItOlE 

CALL EDNEV 1 1 SEC , IPOS ,2 1 
CALL E£»>UT I TEXT I ,351 


iO 



K> 

O 



CALL EOGET 

UR 

,2 ,LEN3 


10 

IF 

(IR11 3 

£0 

IAXIS(33) 

lH-3 


IF 

(IRM } 

EQ 

IAXiSl4lJ 

lH-4 


IF 

(IRM } 

EO 

lAXlStSJl 

lH-5 


IF 

1 IH LE 

23 

GO TO g 



CALL EOPUT 

(TEXT2 ,35 3 


11 

CALL EOGET 

ns 

,2 ,LEN 3 



IF 

(IS(1 1 

EO 

lAXI5(3n 

IV-3 


IF 

fisin 

EQ 

IAXISC43 3 

lV-4 


IF 

(ISM 3 

EQ 

I AX ISIS 13 

IV-S 


IF 

(IV LE 

21 

CO TO 11 



IF 

UR(1 } 

NE 

isn 33 CO 

TO 12 


call EOPUT I texts ,271 
GO TO 9 

12 CALL UNPOST (2J 
GO TO 2 

13 CALL FIX i 1 ) 

CALL FIX (21 

IF MH NE. 5 AND IV NE. 5 3 GO TO 14 
IF UH NE 4 .AND. IV NE. 4 3 GO TO IS 
iT=3 

CALL EOPUT ('ENTER CONSTANT ',153 
CALL EDPUT UAXISUTI ,1 ) 

CALL EDPUT (CR ,1 i 
CALL A3KR4 (CONST 3 
GO TO 18 

14 IT-5 

CALL EDPUT ('ENTER CONSTANT ',153 
CALL EDPUT UAXISIIT) ,1 ) 

CALL EOPUT CCR ,1 ) 

CALL ASkR4 (CONST 3 
GO TO 16 

15 1T=4 

CALL EDPUT ( 'ENTER C0^4STA^IT ',153 
CALL EDPUT MaxISHTJ ,1 3 
CALL EDPUT (CR ,1 3 
CALL AS^R4 (CONST 3 

16 CALL EOCLO 
RETURN 
END 



c 

G 

C 


SUSRCUTlfcE SETUP 

I«>LIC1T IMTECER32 U-N.a) , , 

1NTECER»1 TEXT! £141 JEXT2C14 ) ,IR(2 1 ,ISl2J ,CR ,Y ,1SHW JLINE , 

&NA«F I L C 1 5 1 ,IDO ,KORO C 25 ) ,F ILE ,P 
I NTEGER*4 LENGTH , I YMAX4 

COMMON USKET ( 2 ,3 1 ,IR ,1S ,ISEG 13 ) ,IP0S(6 1 ,ISKW .CONST .IT . I PORT (41, 

^C0MM0N^/^wi/lXY(2 J .101 AC 14) .NT ,IOO ,IM .PTXBUF 125 ) ,PTYBUF(25) , 
&MORO .ILINE .NAMFlL .lYLOCl 16) .IXMIN .IXMAX .lYHlN .lYMAX ,W01AGt4) 
DIMENSION SAEWCiei .ICR0SS16) ,VCOOR(2 ) ,IMENU12 ) 

LOGICAL STAT(3) 

EXTERNAL EOCET « 

data GR/X '00 V ,Y/ 'YV .ICROSS/400 ,400 ,-800 ,-800 .800 ,0/ ,P/ 'P'/ 

DATA TEXTl/ 'ENTER MINIMUM '/ 

DATA TEXT2/ 'ENTER MAXIMUM '/ 


CREATE SEGMENT FOR DISPLAY MENU 


IMENUM ) -25230 
IMENU12)-2SS30 
CALL OPEN (99) 

DO 10 MM>1 ,16 
!MEr>:Ul2)“iKENUl2)-15S0 
CALL VHOVE IIMENU} 

CO TO (25,24 ,23 ,22,21 ,23 ,19 ,18 ,17 ,16,15 ,10 ,13 ,10,11 ,10) ,MM 
n CALL VTEXT ( 'EXIT' ,4) 

GO TO 10 

13 CALL VTEXT ('TABLET ',81 
GO TO 10 

15 CALL VTEXT ( 'REDRAW', 6 J 
GO TO 10 

16 CALL VTEXT I 'CIRCLE', 6) 

CO TO 10 

17 CALL VTEXT I'SPLINE',6) 

GO TO 10 

18 CALL VTEXT ( 'DASH' ,4) 

GO TO 10 

19 CALL VTEXT ('LINE * ,4 ) 

CO TO 10 

20 CALL VTEXT I 'REMOVE ' ,6) 

CO TO 10 

21 CALL VTEXT ( 'LOCATE ',B1 
CO TO 10 

22 CALL VTEXT ('BACKUP' ,8) 

CO TO 10 

23 CALL VTEXT ('CONTINUE' ,8) 

CO TO 10 

24 CALL VTEXT ('REJECT' ,6) 

CO TO 10 

25 CALL VTEXT ('ACCEPT' ,6) 

10 IF:E^aH2)-^MENU (21-520 

CALL CLOSE 


C 

C 


SET INITIAL VIEWPORT 
IVlEWn)— 24575 
IVIEWiai— 24575 



oon n on 


N) 

to 


IVIEW 13 3-24575 
IVlEyt4 3-24575 
CALL VIEW UVIEWI 

SET PORT values equal FOR TB0: AND DC 

I PORT n 3—32787 

IPORT 12 1—24575 

IPORT133-32767 

IPORT 14 1-24S7S 

IF (FILE NE P3 GO TO 30 
READ r3,«) IWDI AC(NN) ,KN-1 ,4 3 
CO TO 31 

ENTER DIAGONAL FOR WINDOW 

30 CALL EDNEW nSEC*IPOS.2 3 
CALL EDPUT tTEXTI ,14) 

CALL EDPUT {IR ,2) 

C ALL ASKR4 ( WD I AC nn 
CALL EDPUT t TEXT! ,14} 

CALL EDPUT (IS, 2) 

CALL ASi^R4 (WDIAG(2 3) 

CALL EDPUT (TEXT2,H) 

CALL EDPUT (IR,2) 

CALL ASi^R4 1WDIAG(3)) 

CALL EDPUT (T£XT2,14) 

CALL EDPUT (IS ,2) 

CALL ASXR4 (yDIAGt43) 

WRITE (3,») (WDIAC(NN) ,NN-1 ,4 ) 

CALL EDCLO 

31 CALL WIND (WDIAG) 

CALL VAR 

CALL QVIEW IIVIEW) 

CALL GILOC (21 
CALL PORT (IPORT) 

CALL EONEW CISEG,IP0S,2) 

CALL EDPUT ('DO YOU WANT SKEW CORRECTION? ' ,28 1 
CALL EDPUT (CR ,1 3 

CALL EDPUT ('TYPE "Y" FOR YES OR ‘N" FOR NO ' ,32 3 
CALL ASKAN ( ISKW ,13 
IF (ISKW NE. Y 3 GO TO 3 
CALL EDCLO 

CALL EONEW (I SEC. IPOS ,3) 

CALL EDPUT ( 'ENTER LOWER LEFT CORNER OF PICTURE. ' ,55) 
CALL EDPUT (CR ,1 ) 

CALL EDPUT CENTER LOWER RIGHT CORNER OF PICTURE. ',363 
CALL EDPUT (CR 1 ) 

CALL EDPUT ('ENTER UPPER RIGHT CORNER OF PICTURE ' .363 
CALL QCILOC (IXY,STAT3 
CALL P2W (IXY.SKEWCnn 
CALL QCILGC (IXY.STAT) 

CALL P2W (IXY ,SK£WC(S)3 
CALL (3GILCC UXY,STAT3 
CALL P2W (IXY ,SK£UC(333 



ono no ono non 


CALL UNSKEU (USRET ,SKEWC >W01AC I 
S CALL EOCLO 

CREATE CROSS FOR CIN CURS(» 

4 CALL OPEN (100] 

IXYtn-0 

1XYC21-0 

5 CALL VHOVE tIXY) 

6 CALL WABS IF) 

call vabs if.) 

I XYI1 1-8000 
CALL VMOVE IIXY) 
iXYCn— 16000 
CALL VORAW IIXY) 

]XY|i)-8008 
!XY (2 1-8000 
CALL VMOVE MXY) 
lXYtM-0 
IXY 121—15000 
CALL VDRAW UXY) 

call close 

CALL WABS ( T 1 
CALL VABS IT) 

CREATE BOX CURSOR FOR DISPLAY MENU 
I XYC1 3-2^000 

1XYI2J-0 ^ 

CALL OPEN 198) 

CALL VMOVE IIXY) 

CALL VABS IF.) 

IXYII)-7100 
IXY 12 1-1000 
CALL VRECT UXY) 

CALL CLOSE 
CALL VABS I.T.) 

CREATE SECEMENT FOR X USED IN REMOVE 
CALL OPEN IS) 

CALL VABS IF.) 

CALL VMOVE (ICROSSni) 

CALL VORAW I1CROSSI3)) 

CALL VMOVE (ICROSSIS)) 

CALL VIWAW IlCROSSHl) 

CALL VABS IT) 

CALL CLOSE 

SET MAXIMUM AND MINIMUM FOR MENU LOCATION 
CALL BELL 

CALL EONEV 1 1 SEC , IPOS , 2 ) 

CALL EDPUT UENTER LOWER LEFT COR»€R OF MENU' ,31 1 
CALL EDPUT ICR ,1 ) 

CALL £K>UT I 'ENTER UPPER RIGHT CORNER OF MENU' ,32) 
CALL OCILGC IIOIACII 1 ,STAT ) 

CALL QCILOC IIOI ACI3 J ,STAT ) 


N) 

W 



oou 




CALL EOCLO 

IF lIDlACtn CT IDlACiSn CO TO 7 

IXHlN-IOIACni 

IYMIN-1DIAC(2) 

IxnAX»I01ACl3) 

IY^1AX-ID1AC^4) 

CO TO 8 

7 IXHIN-IOIACCSJ 
IYMIN-1DIAC(4) 

IXMAX«10IAC(1 1 
IYMAX-IDIAC(21 
9 lYLOCd 1-lYMlN 
IYMAX4-IYHAX 
LENCTH-IYMAX4-IYM1N 
IBLOCA-LENGTH/tS 
DO 9 J-2 ,15 

9 IVLOCU )-lYLOCtJ“l J+IBLOCA 
lYLOCnei-IYMAX 

CET RID OF SYSTEM CURSOR 

CALL OPEN (901 
IXY (1 1-32767 
IXY (2 1-32767 
CALL VMQVE (IXY I 
CALL CLOSE 
CALL Cl CUR (905 

RETURN 

END 



on 


subroutine I tab 

IHPlICIT IN7ECER*2 

INTEC£R»i IDO ,MOTD(25) ,IR121 »ISC2) .ISKW ,ILINE .NAHEIlMSI ,CR ,Y 
INTEGER* 1 FILE * ^ * 

COMHON USKET 12 ,3} ,1R ,lS,ISECt3) .IP0SI6) ,ISKW»C0N5T ,IT »IP0RT1^J , 
4IVIEW14) .file 

C0M»10N /MENU/1XY(2) .IDlAGm ,NT ,IDO ,IM ,P7XBUF (25 » >PTyBUF I2S J , 
4M0RO.1L1NE .NAHFIL »!YL0Cn6> .IXMINJXMAX ,1YHIN,IYMAX ,UOIAC(^) 
DIMENSION PT12J ,yC00R(2) .1VXY12) ,ISXY(2J ,IEXTI5) 

LOGICAL ISTAT(31 
EXTERNAL EDG£T 

DATA CR/X'0O'/ ,Y/'Y V .lSXY/0 ,0/ 


ENABLE CO»OUT 
ASSIGN 99 TO I GOUT 
CALL ENABLE 1 'GO*OUT '.IGOUTl 

6 call bell 

CALL EDNEW (ISEC.IPOS.n 

CALL EDPUT I 'YOU ARE NOW READY TO DIGITIZE YOUR PICTURE.' ,431 
CALL POST (100) 

ILlNE-0 

!M-0 

5 call delete (20) 

DO IS M-1 ,25 

NT-M 

IBLA-0 

10 CALL CICLO 

4 CALL GIACT (IXY,ISTAT) 

IF (IXYCn LT. IXMIN .OR. IXYd) .CT, IXMAX1C0TO7 
IF ( NOT. ISTAT(3)1 CO TO 4 

IF (IXY(21 LT. lYLOCMl .OR. IXY(2) GT. IYL0CH6)) CO TO 50 
DO 11 100-1 .15 

IF (IXYt2) GT lYLOC(IOO). AND. IXY (21 LT. lYLXilOO+m CO TO 12 

11 CONTINUE 

12 CALL MENU 

IF UDO EO 1 ) GO TO 16 
IF (100 EQ. 7 j GO TO 5 
IF UDO EQ. 15) CO TO 16 
IF UDO EQ 14) CO TO 5 
IF (IDO EQ. 13) IBLK-13 
IF UDO EQ. 3) RETURN 
CO TO 10 

50 CALL EDPUT ICR.I 1 

CALL EDPUT ('ERROR IN MENU SELECTION TRY AGAIN I ' ,36) 

CALL BELL 
CO TO T0 

7 CALL P2W ilXY.WCOOR) 

IF USXW .EQ. Y) CO TO 13 

PTUl-WCOORUl 

PT(2)-UC00R(2) 

GO TO 14 

13 CALL APPLY (USKET .WCCOR ,PT 1 

14 CALL W2V (PT,IVXY1 
ISXYH )-ivxvin 





JSXyi2l-lVXY(2J 
CALL yPLACE 1100 ,IVXY) 

IF I NOT ISTATiSn CO TO 4 
IF (IBLK EO 131 CALL DELETE Ml 
CALL APPEND C201 
CALL tag (NTl 

IF ULINE EQ. 01 CALL LINE 

IF ULINE EQ 1) CALL DASH 

IF ilH EQ 01 CALL WHOVE (PT j 
IF UM NE. 0} CALL WDRAtf IPT) 

CALL POST (20) 

PTXBUFlNTi-PTU 1 
PTYBUFlNT 1-PT(21 
HCROINTI-IN 
IF ULINE EG 0) lM-1 

IF ULINE EQ. 1 ) IM-2 

IF (NT .EQ. Ml GO TO 15 
NT-NT+1 
CO TO 10 

15 CONTINUE 

C EMPTY BUFFERS TO OUTPUT FILE 

16 IF (NT . EQ 03 GO TO 17 

WRITE i3,1021 (PTXaUFJM >PTY8UF(K3 ,HORD(K) ,A-1 ,NT3 
103 FORMAT (2F16.6 ,151 
CALL FIX (201 
CALL CAFLST UEXT 1 

17 IF (IDO EQ 1 1 CD TO 20 

IF (M EC. 25 OR. IDO . EQ . 15) GO TO 13 
CO TO 5 

18 CALL OPEN (19) 

CALL HOVE (PIX3UF (NT 1 ,PTY3UF (NT 1 1 
CALL POST (191 
CO TO 5 

20 CALL BFCLO (3) 

RETURN 

C 

C GOtOUT 

99 CALL VPLACE n00,ISXY) 

98 IF (.NOT. 1STA7(31) CO TO 4 
GO TO 10 
C 

END 



SU3R0UTINE KENU 
IKPLICIT INTEGERS (I-N,o) 

INTECERtl 100 ,H0a0125) JRC2J ,ISt2l JSKW .ILINE .NAHFILMS) ,CR ,Y 


INTEGER*? file 

COfWON USRET 12, 5J ,IRilS,l$EC(5) ,IP0S18) ,1SKW, CONST ,n ,IP0RT14) 


&iVlEvm ,FILE 

COfflION /MENU/IXY12) ,ID1AGMI ,NT ,IDO*IM ►PTX8UFL25) ,PTYBUF(25) , 
&MORO .ILINE .NAMFIL ,IYL0Cn6) ,1XMIN,IXHAX .lYMlN JYMAX .tfOIACl-t) 


OIHENSION yCOORl2) ,PTi2l 
LOGICAL STATI3I 
DATA CR/13/»Y/'YV 


GO TO (31 ,32 ,33 ,32 .35 .38 ,37 ,38 ,39 ,40 ,41 ,42 .43 ,44 ,45 J ,100 

31 CALL EDPUT ICR ,1) 

CALL EDPUT I 'EXIT' ,4) 

NT-NT-1 

RETURN 

32 CALL EDPUT (CR,U 
CALL EDPUT ( 'BLANK' ,51 
CALL BELL 

RETURN 

33 CALL EDPUT ICR ,1) 

CALL EDPUT C'CO TO JOY *,9) 

LU-5 

CALL GILOC (LU) 

CALL PORT IIPGRT) 

CALL CICUR (S3 3 
CALL EOCLO 
RETURN 

35 CALL EDPUT (CR ,1) 

CALL EDPUT I 'REDRAW' ,6) 

CALL ERASE 
CALL BFCLO (31 
CALL SFACT (3 .NAKFIL ,.T. 1 
REWIND 3 

READ (3,*) (WDIACCNNl ,NN-1 ,41 
351 READ (3 ,100,ENO-3591 XI ,Y1 ,N) 

100 FORMAT (2F 16. 6, IS I 

IF INI EQ. 101 GO TO 351 
IF (N1 EQ. 0) CALL MOVE (XI ,Y1 J 

IF (N1 EQ 1 J CALL LINE 

IF (N1 EQ 2) CALL OASH 

IF (N1 EQ I OR. N1 EQ. 2) CALL DRAW (XI ,Y1 ) 

CO TO 351 
359 RETURN 

36 CALL EOPUT (CR ,1» 

CALL EDPUT ( 'CIRCLE' ,61 
CALL OVLINK CORWCIR '1 
CO TO 41 

37 CALL EDPUT (CR .1 1 

CALL EDPUT ('SPLINE' ,61 
CALL OVLirJK I'DRWSPL '1 
CO TO 4? 

39 CALL EDPUT (CR ,1 1 
CALL EDPUT ( 'OASH ' .4 1 

ILINE»1 



RET<;SN 

59 CALL EDPUT ICR .11 oo 

CALL EOPUT I 'LINE* ,-11 
lLiroE-0 
RETURN 

40 CALL EOPUT ICR ,11 

CALL EOPUT I 'REMOVE ',61 
CALL OVLINK ('REMOVE '1 
CO TO 55 

41 CALL EOPUT (CR ,1 I 

CALL EOPUT ( 'LOCATER MODE' ,12) 

lM-0 

RETURN 

42 CALL EOPUT (CR ,1) 

CALL EOPUT ( 'BACKUP* ,61 
NT-NT-1 

CALL TRUNC (20, NT) 

CALL POST (20) 

CALL MOVE (PTXBUFINT-n ,PTYBUF1NT-1 n 
RETURN 

43 CALL EDPUT ICR ,1 1 

CALL EOPUT ( 'CONTINUE' ,8) 

CALL OPEN (41 

CALL MOVE (PTX3UF1NT-21 ,?TY3UF(N7-21 J 
CALL DRAy (PTxaUF(NT-1 1 ,PTYBUF(NT-1 )! 

CALL SYMBOL (5) 

CALL POST 14) 

CALL 31NTAT (4 ,3) 

CALL BLINK (4,33 .50) 

RETURN 

44 CALL EDPUT ICR ,1 1 

CALL EDPUT ( 'REJECT ' ,6) 

CALL DELETE (20) 

IM-0 

RETURN 

45 call EDPUT (CR ,1) 

CALL EOPUT ( 'ACCEPT ' ,61 

NT-NT-1 

RETURN 

END 



on . on 


SUBROUTINE ORUCIR 
I^ICIT INTEGERS? U-N.a) 

INTEGERSI 100 ,H0RD{?5) ,iRC?) ,ISi?J ,ISK« ,ILINE .fJAKFlLtlS) ,CR ,Y 
INTEGERS^ FlLE.KCIR 

COMMON USKET 12 3) >1R »IS ,IS£Gl5 1 .1P0S16) ,iSKW , CONST .IT .IPORTl-^) , 
&IVIEW14 ) .file 

COMWN /MENU/1XY(2) ,IDIACI4) .NT ,100 ,IM .PTXBuF (2S 1 >PTyBuF( 25) , 
4M0R0.IL1NE .NAMFIL .lYLOCHO) .IXMIN.IXMAX .lYHIN.IYMAX .WOIAGH ) 
DIMENSION VCOORI2) .PT J?J .CURVE 1160 » .CENTER t?) ,PTCl2) ,ISXYI2) 
LOGICAL STATIST 
DATA CR/13/ ,Y/'yv 


ENABLE GO«OUT HANDLER 

ASSIGN 367 TO I GOUT 

CALL enable I'COtOUT '.IGOUT) 


EMPTY BUFFERS TO OUTPUT FILE 
IF (NT EQ n CO TO 359 
KK-NT-1 

WRITE 13,103) (PTX3UFCA) ,PTY8UF(K) ,MCRO(A] 

CALL FIX 120) 

CALL DELETE (20) 

C 

C 

359 CALL DELETE 1351 
CALL DELETE 138) 
call EDPUT ICR.l) 

CALL EOPUT ('DIGITIZE CENTER OF CIRCLE ',261 

IRET-1 

CALL CICLO 

360 CALL CIACT (IXY.STAT) 

IF (IXYin GE IXMIN .AND IXY(1) .LE. IXMAXl GO TO 370 
CALL P2W lIXY.WCOORl 
IF (ISAW EQ. Y1 CO TO 361 
CENTER m-WCOORll ) 

CENTER(2)-WC00R12) 

CO TO 363 

361 CALL APPLY CUSAET .WCOOR .CENTER J 
363 CALL W2V (CENTER. I XYl 

ISXYlll-IXYn) 

ISXY(2l-IXYt2) 

CALL VPLACE (H0.IXY) 

IF I NOT STAT(3)J CO TO 360 
CALL OPEN 135) 

CALL PLOT 
CALL PINT 125) 

CALL WCRAW (CENTER) 

CALL POST (35) 

CALL EOPUT ICR .1 ) 

CALL EDPUT 1 'DIGITIZE POINT ON CIRCLE '.24) 

IRET-2 
CALL GICLO 

366 CALL CIACT (IXY.STAT) ^ 

IF lIXYdl GE. IXMiN AND. IXY(1 ) LE IXMAX) CO TO 370 
CALL P2W lIXY.PTC) 

IF (iSXW EQ. Y) CO TO 384 



on 


pTin-PTcm 

PT12)-PTC(2) 

CO TO S32 

564 call APPLV iUSKET ,PTC ,PT) 

362 CALL W2V <PT JXYI 

isxYfn-ixYn) 

ISXY{2)“IXY(2J 
CALL VPlACE MC9,IXY) 

IF ( NOT STATI3H CO TO 3S5 
IF UXYHl CT IXMINJ RETURN 
CALL APPEND «351 
CALL WDRAW (PTJ 
CALL POST {3S1 

RAD-SQRT! {Pin )-CENTER( n )**2^1PT (2 1 -CENTER t2n»»2) 

ASSIGN 328 TO I FULL 
CALL ENABLE ('tFULL MFULLl 

CALL QCIR (CURVE ,50 ,NUM ,CENTER ,RAD) 

AK-2*NUM 
call open (36) 

CALL WMOVE (CURVE) 

IF lILINE .£Q. 0) CO TO 363 
iM-2 

CALL DASH 
GO TO 359 
358 IM-1 

CALL LINE 

38S DO 355 AC-3 *2 
365 CALL WDRAy (CURVE! KOI 
CALL POST (36) 

CALL EOPUT (CR.n 

CALL EOPUT {'00 YOU WANT TO KEEP CIRCLE? ',29) 

CALL BELL 

CALL ASAAN (ACIR.l) 

IF (KCIR NE. Y) CO TO 359 
CALL FIX (361 
CALL DELETE (35) 

IHH-0 

WRITE (3 ,180) CURVEH ) ,CURVE(2) .IMM 
100 FORMAT (2F16.6,I5) 

WRITE (3,100) (CURVE (KC ), CURVE IRC»1 ),IH,KC-3,AA ,2) 
RETURN 

370 IF (STAT13)I CO TO 371 
IF URET EQ n CO TO 360 
IF MRET EQ. 2) CO TO 366 

371 CALL DELETE (35) 

CALL DELETE (36) 

RETURN 

COSOUT HANDLER 
387 CALL VPLACE (100,ISXY) 

IF URET EG. 1) CO TO 380 
CO TO 328 
C 6FULL HANDLER 

323 WRITE n ,t) ' NOT ENOUGH SPACE TO RETURN POINTS. ' 
WRITE n ' NU??SER CF POINTS REGUIRED » ' ,NUH 


o 



PAUSE 

ENO 



on no 


SUBROUTINE DR^SPL 

IfJPLiCIT INTECERaa w 

INTECERtl RSPL ,FIL£ 

INTEGERti IOO,?iOROl25) jIR! 2) ,IS(2! ,ISXU^ILI^4E .hiAKFRIlS) ,ER ,Y 
COMMON USXET (2 .31 ,IR ,IS ,iS£G{3J ,IP0St8J ,ISXW .CONST ,IT ,IP0RT(4) > 

&IVIEWM I .file 

COMMON /HENU/IXY{2) ,IDlACt4 J ,NT ,100 ,!M ,PTXBUF<25 ) ,PTYBUF(25) , 

SKORD.ILINE .NAMFIL .lYLCCClO) ,IXMIN,IXMAX .lYHiN ,IVMAX .WOIACH) 

DIMENSION WC00RI21 ,PT12) ,XBUF (20 i .YSUF (20 J ,XSPtie2J ,YSP(J82) , 

&IVXY(21 ,ISXY(2} 

LOGICAL STAY (3) 

DATA CR/I3/ ,Y/'Y V 

ENABLE COSOUT HANDLER 
ASSIGN 326 TO ICOUT 
CALL ENABLE ( 'CO*OUT '.IGOUTI 

EMPTY BUFFERS TO OUTPUT file 
IF . (NT EG 1 1 CO TO 319 
KX-NT-1 

WRITE 13,100) IPTXSUF(K) ,PTYBUF(X) ,MCRO(A) ,K-1 >XX ) 

100 FORMAT (2F16.6,IS) 

CALL FIX (20) 

call delete (20) 

319 CALL DELETE (26) 

CALL EOPUT (CR .1 ) 

CALL EDPUT ('YOU MUST PICX 3 POINTS OUT NO MORE THAN 23, ' .-13) 

call bell 

LS-1 

120-0 

CALL OPEN 125) 

CALL PLOT 
CALL PINT 125) 

CALL CLOSE 
DO 325 L-1 ,20 
3200 CALL CICLO 

320 CALL GIACT (IXY.STAT) 

IF UXYin CT. IXMIN .AND. IXYd ) ,LT. IXMAX) CO TO 322 
CO TO 321 

322 IF ( NOT STATI3H CO TO 320 

IF IIXY(2) LT. |YL0C(71 OR IXY(2) CT JYLOC(B)) RETURN 
IF (L CT 3) GO TO 327 
CALL EDPUT ICR ,1) 

CALL EDPUT 1 'Y0U MUST INPUT AT LEAST 3 POINTS ' ,33) 

CALL BELL 
CO TO 320 

321 CALL P2W (IXY.VCOORI 

IF (ISKW EO. YJ CO TO 324 
PTin-WCOORd ) 

PTI2)-WC00R(2) 

GO TO 3250 

32^ CALL APPLY CUSKET .WCOOR ,PT ) 

3250 CALL «2V (PT.IVXY) 

ISXYd J-lVXYin 
ISXY12i-lVXY(2) 

CALL VPLACE d00,lVXY) 



IF i NOT STAT(3i) GO TO 328 
XBUF tLS)-PTin 
yBUF<LSJ-PT(2) 
call append C25) 

CALL DRAW (XBUFtLSI .YBUFILSJ ) 

CALL POST (25) 

325 LS-LS*I 
128-28 

CALL EDPUT (CR ,1) 

CALL EDPUT ('YOU HAVE INPUT 20 POINTS WHICH IS THE MAX.' »42l 
CALL BELL 

527 IF (L -EQ 20 AND 120 EQ. 20 ) CO TO 323 
L-L-) 

523 IF (ILINE EQ. 0) CALL LINE 

CALL ECSPL (XBUF ,YBUF »L .XSP ,YSPI 
lH-0 

KK-8*L+2 
CALL OPEN (26) 

call move (xspn ] >YSPn )) 

IF (ILINE EQ. 01 GO TO 13 
iM-2 

CALL DASH 
CO TO J 4 
15 IM-1 

CALL LINE 
14 DO 329 II-2,K< 

529 CALL DRAW I XSP ( I I J ,YSP (11)) 

CALL CLOSE 
CALL POST (26) 

CALL EOPUT »CR,1) 

CALL EOPUT ('CO YOU WANT TO KEEP SPLINE? ' ,28) 

CALL sell 

CALL ASKAN mSPL ,1 ) 

CALL (KlETE (25) 

IF IKSPL NE Y) GO TO 319 

CALL FIX (261 

lMOV-0 

WRITE (3,100) XSPn ) ,YSPU) ,IM0V 

WRITE (3,1001 (XSP(1K),Y$PIIH) »IM, IK-2, AK) 

RETURN 

c ■■ ■ 

c COtOUT HANDLER 

326 CALL VPLACE ( lif.ISXYl 
IF (STAT(3)1 CO TO 3200 
CO TO 320 

C 

END 





w 


SUSROUTir^E EGSPL (X ,NP ,XX »YY ) 

IKPLlCn INTEC£P*2 II-N,=») 

DIf«£NSIC3N Xt23> ,Yt23J ,SPt23) 

OiKENSiOlY At20) ,8(201 ,C<28J ,D(20) ,TX(20) ,TY(20) 

DIMENSION XXM621 .YY(162J 

SPin-0 

DO T15 1-2 ,NP 

SPd i-SPU-1 i*^S0RTnxii i-xu-1 n«2+ (Y ( I )-Y(i-! n**2i 
115 CONTINUE 

NIPT-«*NP'M 

DDX -SP ( NP ) /FLOAT I N I PT 1 

Vl-f 

V2-1 

C SINCE I1 + I2-2 AND VI+V2-0 , INTERPOLATIONS TO THE LEFT OF XII), Yin 
C AND TO RIGHT OF XiNPl.YINPl WILL CONTINE AT SAME SLOPES. 

C 

CALL SPL I NE ( SP ,X ,NP . A >B ,C ,D ,T X , V 1 , V2 ) 

CALL SPLINE (SP ,Y ,NP ,A ,B ,C ,D ,TY >V1 ,V2 1 

T-B 

CALL SPL :NT (SP ,X ,NP ,7X ,0 ,T ,XX (1 J 3 
CALL SPLINKSP ,Y ,NP,TY,i,T ,YYn n 
00 I3i I - 1 ,N|PT 
T-T*DDX 

CALL SPL INT (SP ,X ,NP ,TX ,» >T ,XX (1 + 1)3 
CALL SPL I NT ISP ,Y ,NP ,TY .0 ,T ,YY (I ♦ 1 13 
13f CONTINUE 
RETURN 
END 
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SU8R0UT ItiE SPLINE CX »y >N ,A ,B ,C ,0 ,T ,V1 ,V2 ) 

c ■ ■ - 

C THIS routine computes the vector of SECOf© DERIVATIVES 
C IN ARRAY T WHICH ARE NEEDED TO SPLINE INTERPOLATE 
C TABULAR DATA STORED IN TC AND Y . ALLOWED £H0 
C CONDITIONS INCLUDE SPECIFICATION OF Y' OR Y’* AT 

C EACH END WHEN M IS I OR 2 THEN VI IS THE CHOSEN 

c value of y* or y", respectively , at x-xin. I2 and 

C V2 HAVE A SIMILAR MEANING FOR THE RIGHT ENO AT X(NI 

C.', 

IMPLICIT INTEGER<2 U-N,») 

DIMENSION Xl20T,Yt20J 
OIMENSKW At20T ,BI20T CI20) ,0420) ,Tt20) 

FORM THE TRIO I AGONAL SYSTEM DEFINING SPLINE 
COEFFICIENTS 

Nl-N-1 

00 10 J-2.N1 

Hj-XTJJ-XlJ-1 1 
HJJ-XU + T )-XU 1 

AIJ J-HJ/HJP 
B4JJ-2 
CUJ-1 -AlJ) 

10 OUl-6 *(IY(J+1 )-YCJn/HJ4-lYU)-Y<J-1 ) )/HJ l/HJP 

FORM THE EOUAT IONS FOR THE END CONDITIONS 

6(1 1-1 
C(1 1-0. 

DTI 1-Vl 
ATNJ-0. 

BTNl-1 . 

0CNJ-V2 

SOLVE FOR T(1 ) , ,TlNl USING GAUSS REDUCTION 

00 «i R-1*NI 
R-A«M 3/BIR) 

BTMn-B(K>n-R*ClKI 
00 0IK<»1 l-0tK>1 }-RtO(IU 
TtNl-OTNl/BlNJ 
00 70 J-1 »N! 

• J 

70 Tmj-IOMU-CTKKTIK+I ) J/BTAJ 
RETURN 
END 
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Subroutine splinkx ,y ,n ,t ,id ,xt ,fti 

c 

C THIS ROUTINE PRODUCES A SPLINE INTERPOLATION VALUE FT 

C CORRESPONDING TO AN X-POSITION XT WHEN 10 EQUALS 

C 0 ,1 ,2 OR 3 , THEN FT TARES THE VALUE OF Y , Y ' , Y ' " , OR 

C THE integral of YSOX BETWEEN LIMITS OF XII) AND X. THE 

C ORIGINAL DATA POINTS ARE STORED IN XII), YU), 1-1 , 

C ,N THE VECTOR T CONTAINS THE Y" VALUES RETURNED 

C FROM SUBROUTINE SPLCOF 
C 

IMPLICIT INTEG£R«2 ti-N,») 

DIMENSION XI20), YI20), TI20) 
lDl-lD+1 

CHECA whether XT IS OUTSIDE THE ORIGINAL DATA RANGE 

IF I XT.LT Xn 1 ) GO TO 80 
IF I X7.GT X(N1 1 CO TO 120 

DETERMINE THE FIRST DATA POINT TO THE RIGHT OF XT 
DO 33 J-2 ,N 

IF I XU J C£ .XT ) CO TO ^2 
50 continue 
40 J1-J-1 

HJ-XU)-Xljn 
Hj6-S.»HJ 

GO TO (50 ,60 ,70 ,721 ,IOT 

50 FT-m J1 lilXU 1-XT )»«3 + TU)»rXT-XU1 n«3 

& +16.»IYU)-YU1 n- ITU )-T (J1 n*Hj»*2J»(XT-XUl n 

& ♦6.WJ*YUn-TUn*HJ«5)/HJ6 
RETURN 

60 Ft - 1-3 *TUn*lXU) - XT3**2*3.tTU)*tXT-XUn )**2 
4 ♦ 6.4IYIJ] - Yljin - ITU) - TUI n»HJ**2)/HJ6 
RETURN 

70 FT-ITUl )»(XU^-X7) ♦ T U KIXT-X U1) ) )/Hj 
RETURN 

72 HX— XT“X(J1 ) 

FT- 25*TUU*(HJt*4-(Hj-HX)«4)+.25«TU)tHX**4 
& ♦I3.*IYU)-YUI n+.5*(TU1 )-TUn*HJ»t2)*HX**2 
4 4^16 «YUntHJ-T Un«HJ««3)*HX 

FT-FT/HJ6 
IF U EQ. 21 RETURN 
DO 74 K-2 ,J1 
HK— XIR )— X IK~t } 

74 FT-FT* S*IY(K-n+Y(KJ )tHK-lT(K-lHT(An*HR«3/24 
RETURN 

80 H 2 - XI2J - xm 

DETERMINE THE SLOPE AT THE LEFT END AND INTERPOLATE 
LINEARLY 

SLOPE - (Yl2)-Yin 1/H2 - 12 «Til }+TI2n*H2/6. 

GOTO {@0,100, 110,115) > 101 
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S3 FT-Yn > ♦ SLOPE* (XT-XII 1) 

RETURN 
100 FT-SL(PE 
RETURN 
110 FI-0 
RETURN 

1 15 HX-XT-X(1 I 

FT-Yl 1 1*HX> 5*SL0PE*HX*»2 
RETURN 

DETERMINE THE SLOPE AT THE RIGHT END AND INTERPOLATE 
LINEARLY 

1 - YIN^I'4 

SLOPE - (YCN}-Y(N-1 n/HN ♦ IHN-1 )+2 . *TTN })*HN/6 . 

GO TO 1150,100, 110, M0J , 101 
130 FT-Y(N) ♦ SLOPE* (XT-X(N)) 

RETURN 

M0 HX-XT-XCNl 

FT-y(N)»HX+ 5*5L0P£*HX<*2 
00 150 J'*2,N 
HJ-XIJ)-X(J-n 

150 FT-FT*.5*IY(J-1 J*YU n*HJ-l7U-l )+TU M*HJ**3/24 . 
RETURN 
END 



OJ 

CO 


C 

C 


SUBROUTINE REMOVE 
IH*>L1CIT INT£GER$2 U-f4»o) 

!NTECER»1 100 ,M0RD(25I ,IRC21 ,1S(2) ,IS!^W .ILINE »NAHFIL115J »CR ,Y 
INTEGER* 1 FILE 

COKffON USKET (2,5) >IR,1S,ISECI3) ,IPOS(S) *ISAW,CONST ,IT ,IP0RT(4| 


&IVlEWt4l ,FILE 

COJWON /KENU/IXYI2) .lOlACH) ,NT ,100 ,IM .PTXBUF I2S ) ,PTYBUF(25) , 
iHORO, ILINE ,NAKFIL ,lYL0Cn6) ,IXHIN .IXMAX ,IYHIN,IYMAX ,WD1AC14J 
DIMENSION WC00R121 ,PT(2) ,1VXY12) ,ISXY(2) .IEXTI3) 


LOGICAL ST AT (5 J 


DATA CR/13/,Y/'YV 



ENABLE COSOUT HANDLER 

ASSIGN 419 TO ICOUT 

CALL ENABLE ( 'CO*OUT ' , I GOUT) 


CALL BFClO 13) 

CALL BF ACT 13 ,NAMF IL , . T ) 

CALL CkFLST (IEXT) 

CALL 8FNEW 14, 'TEMP DAT '.lEXTM)) 

CALL £D»UT ;CR ,1) 

call EDPUT J 'PICA A POINT ON THE LINE TO BE REMOVED' ,38) 

408 REKINO 3 

READ t3,*i ■ WOIAG(NN) ,NN-1 ,4 ) 

REWIND 4 

WRITE (4 ,*) IWDIAGINN) ,NN-1 ,4) 

409 CALL GICLO 

♦ 10 CALL ClACT -IXY.STAT) 

IF IIXYII) LT. IXMIN OR . IXYll) GT. IXMAX) GO TO 4104 
If IIXY(2) GT. IYLOCU0) AND IXYI2) LT lYLOCni) AND. 
&STAT(3n CO TO 4151 

IF HXYin GT. IXMIN AND. IXYll) LT. IXMAX . AND . STAT (3 )) RETURN 

4104 CALL P2W tlXY,WC0OR) 

IF (ISKW EO Y) GO TO 4105 
PT n 1-WCOOR 1 1 I 
PT(2)-WC00Rt2) 

CO TO 4106 

4105 CALL APPLY lUSRET ,WCOOR ,PT ) 

4106 CALL W2V IPT.IVXY) 

CALL VPLACE n00,IVXV) 

ISXYll )-lVXYin 
ISXY(2)-IVXY(2) 

IF (.NOT STATI3)) CO TO 410 
CALL EOPUT (CR ,1) 

CALL EOPUT ("THANK YOU' ,9) 

411 READ (3 ,100 ,EN0-4]8I XI ,Y1 ,Nt 
100 FORMAT (2F 16 6,15) 

412 READ (3,100, END-4 IB) X2 ,Y2 ,N2 
IF (N2 EQ 0) CO TO 414 

I^ IPTMl GT. XI AND. PT(H LT. X2l CO TO 413 

IF (PTn i LT. XI AMO PTm GT X2) CO TO 413 

IF (ABStPTi n-XU LE. 02 OR ABS(PT(1)-X2) LE 02) 

4C0 TO 413 
CO TO 414 

415 IF (PT(2) GT. Yl Af«J PTC2) .LT. Y2) GO TO 415 

IF CPT(2) LT. Yl AND PTI2) GT Y2) CO TO 415 




no 




IF IA8SIPT<2)-Y1 J .L€ 02 OR A8S«PT<2l-y2) L£ 02J 

ago TO 4t5 

4M WRITE (4 ,100) XI ,Y1 
XI -X2 
Y1-Y2 
N1-N2 
CO TO ^12 

C COMPUTE SLOPES AND COMPARE 
A 1 5 XS^ IY2-Y 1 r/ CX2-X 1) 

XSP-(PT12)-Y1 )/lPT(1)-Xn 
IF IABSIX5-XSP) -GT IS) CO TO 414 
CALL OPEN (4) 

CALL BINT (31 
CALL MOVE 1X1 ,Y1 ) 

CALL SYMBOL (5) 

CALL MOVE (XI ,YD 
CALL DRAW (X2,Y2) 

CALL SYMBOL 15) 

CALL POST 14) 

CALL BLINA (4 ,40 ,20) 

CALL EDPUT (CR ,1 ) 

CALL EDPUT ('CONFIRM LINE BY CHOOSING REMOVE AGAIN' ,37) 
CO TO 409 

4151 CALL UNPOST (4? 

IF (N1 ME 0) CO TO 416 
NU10 

416 WRITE 14 ,100) XI ,Y1 ,N1 

417 N2-0 

4175 WRITE 14,100) X2 ,Y2 >N2 

READ (3 .100 £ND-4176) X2 ,Y2 ,N2 
CO TO 4175 

4176 CALL 8FCL0 (4) 

CALL BFDEL (3,NAMF:L) 

CALL BFREN (4, 'TEMP. DAT ',NAMFIL1 
RETURN 

418 CALL EDPUT (CR ,1 ) 

CALL EDPUT ( 'COULD NOT FIND LINE . TRY AGAIN* ' ,31 ) 

CO TO 408 

GOtOUT HANDLER 

4 1 9 CALL VPLACE ( 1 ,ISXY ) 

IF ISTAT(31) go to 490 
CO TO 410 
END 
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C 

c 


c 

c 

c 

c 


c 


SUBROUTINE IJOY 
IHPLICIT INTECER»2 tl-N.*) 

INTECER*1 IDO ,M0R0t2S) ,IRl2) ,IS12J ,ISKW ,ILINE ,NAMF1LI iS) ,CR .Y 


INTECER*1 PILE 

COMMON USKET (2 ,3 ) ,IR ,IS .ISEC J 5 J ,IPOS t6 ) ,ISAW .CONST ,IT .IPORT (4 J 
AIVIEW(4) .FILE 

COMMON /MENU/IXY12) ,IDlACt4) ,NT ,100 ,1M ,PTXBUFt253 ,PTYBUF(25) , 
4M0RD .ILINE .NAMFIL .lYLOCnO) .IXMIN.IXMAX .lYMIN .lYMAX ,WD1AG(4) 
DIMENSION ULOCnei ,PT(2J ,WC00R(21 .IVXY12) ,1SXY(2» 

LXICAL STATI3 3 

DATA 1 JLOC/-1 0000 >-8000 ,-6000 .-4000 ,-2000 .0 ,2000 ,4000 ,6000 > 
&8000 , 1 0000 , 12000 , 1 4000 , 1 6000 > 1 8000 ,20000/ ,CR/ 1 3/ ,Y/ ' Y ' / 


ENABLE GO»OUT HANDLER 

ASSIGN 99 TO I GOUT 

CALL ENABLE I COfOUT '.ICOUT) 

POST MENU FOR DISPLAY SCREEN 

CALL POST 199} 

CALL BELL 

CALL EDNEW (ISEG ,IPOS ,1 ) 

CALL EDPUT ('YOU ARE NOW READY TO DIGITIZE YOUR PICTURE.' ,43) 


lLlNE-0 

IM-0 

5 CALL DELETE (201 
DO 70 M-1 ,25 
NT-M 
I9LR-0 

34 CALL GICLO 
341 I MENU-0 

CALL POST (100) 

35 CALL Cl ACT ilXY.STAT) 

CALL P2W tiXY.PT) 

351 IF tlXYM) .LT IVIEW(3) AND. IMENU £Q 0) GO TO 60 
IF (IMENU NE 01 CO TO 36 
lMENU-1 

CALL UNPOST (100) 

CALL POST (08) 

36 IXY(1)-245M 

CALL VPLACE (9S,IXY) 

If ( NOT STAT(3n CO TO 35 
CALL UNPOST (Ml 

If (1XY(2) LT IJLOCM) OR IXY(2) CT. IJLOCdO) ) CO TO 50 
00 40 100-1 .15 

If (IXYI2) CT ULOC(IDO) AN0.IXY(2) LT IJLOCdDO^I )) CO TO 45 
40 CONTINUE 
45 CALL MENU 
CALL GICLO 
ISXY(1)-0 
ISXY(2)-0 
CALL CIPOS ( ISXY 1 
IF (IDO .£Q. 11 CO TO 72 
IF (100 EQ 7) CO TO 5 



no 


IF UCO £Q 151 CO TO 72 

IFMOO EQ 141 CO TO 5 

IF (IDO EQ 13) 18LK-I3 

IF tlOO EQ 3) RETURN 

CO TO 341 

50 CALw EOPiiT ICR ,11 

CALL EOPUT i 'ERROR IN MENU SELECTION. TRy AGAIN* ',58) 

CALL UNPOST IS®) 

CALL CICLO 
CALC CIPOS IISXYJ 
CALL BELL 
CO TO 34 

60 CALL W2V <PT,IVXYI 
ISXY.(n-jVXYn ) 

ISXY(2)-IVXY(2) 

CALL VPLACE 1120, IVXY) 

IF (NOT ST AT (3)1 CO TO 35 
IF (IBLR EQ 13) CALL DELETE (41 
CALL APPEND (201 
CALL TAG (NT? 

IF (ILINE EQ. 2) CALL LINE 
if; (ILJNE EQ 1 1 CALL DASH 
IF (IM £Q 0) CALL WMOVE (PT 1 
IF (IM NE. 0) CALL UDRAW IPT 1 

call post (22) 

PTXBUF(NT)-PT11 ) 

PTYBUF(MTl-PT(2) 

M0RD(NT)-1M 
IF HLINE EQ 0) IM-1 
IF (ILINE EQ. 1) IM-2 
IF (NT EQ. M) CO TO 70 
NT-NT*! 

CO TO 34 
70 continue 

C EMPTY BUFFERS TO OUTPUT FILE 
72 IF (NT EQ. 01 CO TO 74 

WRITE 13,101) (PTXBUFIIU .PTYBUFdU jMORDUU iK-t ,NT) 

100 FORMAT (2F16 6,15) 

CALL FIX (21) 

CALL CAFLST I TEXT 1 

74 IF <100 -EQ. n GOTO 78 

IF (M £0 25 100 -EQ IS) CO TO 75 

CO TO 5 

75 CALL OPEN (10) 

CALL MOVE <PTXaUF(NT),PTVlUF(Nn) 

CALL POST (10) 

CO TO 5 

78 CALL BFCLO (3) 

RETURN 

cotouT handler 

00 CALL VPLACE M00,1SXY) 

IF ( NOT ST AT 131) GO TO 35 

GO TO 34 ^ 


C 


ENO 


SU3R0UTIKE KEN JOY 
IMPLICIT INTECER42 U-K^) 

INTtCERai 1DO,HOSDJ251 ,IRJ2) ,ISt2J ,ISXU,ILIKE .NAf^ILllSJ XR ,Y 
INTEGER** FILE 

COMMON USKET (2 ,3 ) JR .IS ,ISEC(3 1 ,IP03I8 ) ,ISAW .CONST ,I T ,IPORT J 


4IVIEW14J .FILE 

COMMON /KENU/1XYI2) ,I01AC(<J ,NT ,100 ,IM .PTxeUF i25 ) ,PTYBUF<25J , 
AHORD .ILINE .NAMFIL ,IYL0C(16) .IXMIN.IXHAX JYMIN .lYMAX .W0IAC14) 


DIMENSION WC00RI2) ,PTi2l 
LOGICAL STAT(3J 
DATA CR/13/,Y/'YV 


CO TO f31 ,32 ,33 ,32 .35 .36 ,37 ,38 ,39 ,40 .41 ,12 ,43 ,44 ,45 ) ,100 

31 CALL EOPUT (CR ,n . , 

CALL EDPUT (^EXIT’.4J 

NT-NT-1 

RETURN 

32 CALL EOPUT (CR ,1 ) 

CALL EOPUT ( 'BLANK ' ,5 J 
CALL BELL 

RETURN 

33 CALL EOPUT ICR ,11 

CALL EOPUT ('RETURN TO TABLET ' ,161 
LU-2 

CALL GiLOC (LU) 
call port UPORT 1 
call CICUR (901 
RETURN 

35 CALL EOPUT ICR.I 1 

CALL EDPUT I'R£08AV',6l 

CALL ERASE 

CALL 8FCL0 (31 

CALL BF ACT (5, NAMFIL ,T. 1 

REWIND 3 

READ (3 ,t) (WOI AC(NN) ,NN-T ,4) 

351 READ <3 ,100 .END-359 1 XI, Y1 ,N1 
100 FORMAT (2F16 6JS1 

IF (N1 EQ. 101 CO TO 351 
IF (N1 EG. 01 CALL MOVE 1X1 ,Y1 1 
IF (N1 EG. U CALL LINE 
IF INI EG 21 CALL DASH 

IF 4N1 EG. 1 OR. N1 EG 21 CALL DRAW (XI ,Y1 1 
CO TO 351 
350 return 

36 C«.L EOPUT TCR ,11 

CM.L EOPUT I 'CIRCLE ',61 
CALL POST (1001 
CALL OVLINR ('ORWCIJ 'i 
GO TO 41 

37 CALL EOPUT CCR,1 1 

CALL EOPUT ('SPLINE' ,61 
CALL POST (1001 
CALL OVLINK l 'ORWS>i 'T 
GO TO 41 

38 GALL EOPUT (CRJ I 
CALL EOPUT 4 "DASH ',41 



1LINE-I 

RETURN 

39 CALL EDPUT (CR »U 
CALL EDPUT { 'LINE ' ,4 3 
lLlNE-0 

RETURN 

40 CALL EDPUT <CR .! 3 

CALL EDPUT ( 'REMOVE ' ,C 1 
CALL POST 11033 
CALL OVLINK I 'REMOVJ '3 
GO TO 35 

41 CALL EDPUT (CR ,1) 

call EDPUT ('LOCATER MODE' >12 3 

lM-0 

return 

-•2 CALL EOPJT (CR .13 

CALL EDPUT I 'BACKUP ',5 3 
NT-NT-i 

call TRUNC 120 .NT 3 
CALL POST (203 

call move (PTX3UF(N'^-J 3 >?TYBUF(NT-f J 1 
RETURN 

45 CALL EDPUT (CR ,n 

CALL EDPUT ('CONTINUE ' ,8 3 
call open (43 

CALL MOVE (PTX8UF ( NT-2 ) ,PTYBUF (NT-2 3 3 
call draw (PTX3UF(NT-1 3 ,PTY3UF(NT-1 3 3 
CALL SY.M30L (5 3 
CALL POST (4) 

CALL BINT AT (4,33 
call blink i4 ,30,303 
RETURN 

44 CALL EDPUT ICR ,I 3 

CALL EDPUT ('REJECT ',6 3 
CALL DELETE (20 3 

IM-0 

RETURN 

45 CALL EDPUT (CR ,1 3 

CALL EOPUT ('ACCEPT ',§3 

NT-NT-1 

RETURN 

END 



on 


SUSROUTlfiE DSyCIJ 
Implicit integers? n-N,a) 

INTEGERS! ID0,H0??Dt25) ,IRI2I ,IS(2J JSRW.IlI^E .NAflFILdSi ,CR ,Y 
mTECERai FILE ,RCIf? 

COn-HON USAET (2 >3) ,IR,IS,IS£C(3J .IP0S16) .ISAU ,CO>^S7 ,1T ,1F0RT (4 ) 
&IVIEUC4) .FILE 

C0?«f10M /H£MU/lXYt2) ,!01ACt4 1 ,NT ,IDO ,IM ,PTXBUF (25 ) .PTVBUFI25) , 
4K0R0,1L1NE .NAHFIL »IYLOC ( 16 ) ^IXMIN ,IXHAX ,iYHrN,iy«AX ,UD]ACI4) 
DIKENSION WCOOR12) ,PTI2) ,CURVEUe0J ,CENTERt2) ,PTCt2) ,1SXY(2) 
DIMENSION IEXT13J 
LOGICAL stay (3) 

DATA CR/13/,Y/'Y / 

ENABLE COtOUT HANDLER 

ASSIGN 367 TO 1COU7 

CALL ENABLE I 'CG«OUT 'JGOUT} 

559 CALL DELETE '35) 
call delete 136) 

CALL EDPUT JCR ,n 

CALL EOPUT ('DIGITIZE CENTER OF CIRCLE ',28) 

IRET-1 
ISXY! 1 J-8 
ISXYl2;-0 
CALL GICLO 
CALt GIPCSnSXY) 

363 CALL Cl ACT IIXY,STAT) 

CALL P2W lIXV jCENTERI 

IF MXYCn LT. IVIEWCS) ) GO TO 383 

381 CALL UNPGST (103) 

CALL POST (98) 

IXYM ) -24000 

CALL VPLACE (98>IXY) 

IF ( NOT STAT(3n GO TO 360 

CALL DELETE (351 

RETURN 

363 CALL W2V (CENTER , I XY) 
iSXYin-ixynj 
ISXYC2)-1XY(2) 

CALL VPLACE M00 .IXYJ 
If (NOT STATtS)) CO TO 380 
CALL OPEN (35) 

CALL PLOT 
CALL PINT (25) 

CALL WDRAW (CENTER) 

CALL POST (35) 

CALL EOPUT iCR ,1 ) 

CALL EDPUT ('DIGITIZE POINT ON CIRCLE ',24) 

IRET-2 
CALL GICLO 

388 CALL GIACT aXY,STAT1 
CALL P2» (IXY ,PT) 

IF flXYM) GT. lVIEy(3) ) GO TO 381 

382 CALL 92V (PT >ixyj 
ISXYdJ-IXYnj 

ISXY!21“IXY(2) 



call vplace neajxyj 

I" I NOT STAT15)! GO TO 565 
CAL!. APFENO 155) 

CALL WDRAV tPT 1 
GALL PCS'' i3SJ 

RAD-SQ9TMPT (1 i -CENTER 1 1 ) )«2* tPT 12 J-CENT£RI2) )**2) 
C 

ASSIGN 328 TO IFJLL 

CALL ENABLE {'tf ULL ' >iPULL ) 

C 

call QCIR ICURVE ,50 ,NUH .CENTER , RAD) 

KR-2»NUM 
CALL OPEN (36) 

CALL vr^OVE ICURVE) 

IF (ILINE EQ 0) CO TO 368 
IM-2 

CALL OASH 
GO TO 369 

368 IM*1 
CALL line 

369 DO 365 KC-3 ,2 

365 CALL WBRAy (CURVE (AC)) 

CALL POST 1353 
CALL EDPUT (CR >n 

CALL EDPUT ('DO YOU WANT 70 KEE? CIRCLE? ' ,29) 

CALL BELL 

CALL ASlLAN (J^CIR,)) 

IP (TvCIR NE. Y) GO TO 359 
CALL Fix (36) 

CALL DELETE IS?) 

WRITE 1 3 >103) CURVE (1 ) .CURVE (2) ,I«M 
103 FORMAT (2F16.6 ,15) 

WRITE (3.!00i (CURVE(KC) ,CURVE(AC+1 ) .IM,KC-3,AK ,2) 
CALL CAFLST (IEXT) 

RETURN 

C 

C COfOUT HANDLER 

367 CALL VPLACE (100,ISXY) 

IF (IRET EQ ) ) CO TO 360 
GO TO 366 

C »FULL MAWJLER 

328 WRITE (1 ,*) 'NOT ENOUGH SPACE TO RETURN POINTS ' 
WRITE n ,*) ' NUMBER OF POINTS REQUIRED - ' ,NUH 
PAUSE 
END 


on 



nn 


SUBROUTINE DRtfSPJ 

iKPLlCIT !NT£G£R«2 U-N,oJ 4:. 

INTECERai RSPL ,£!!.£ 

INTEC£R»1 100 ,NCR0I25) ,IR12) ,IS12) .ISRW ,1L1N£ ,NAHFlLn5) »CR ,V 
COMMON USRET 12 »3J »IR ,IS ,ISEC13] ,IP05<6) ,!SRU ,CONST ,IT ,IP0RT<4) , 

AlVlEWt-l ) ,FIlE 

COMMON /M£NU/!XYr2) .IDlACt^J ,NT ,100 .IM ►PTX0UFt25> ,PTYBUFl2S) » 

&MORD,aiNE .NAMFIL .lYLOCHS) ,IXMIN ,IXMAX ,IYmW ,IYMAX ,WDIAC14I 
DIMENSION WCOOR(21 »PT12) ,XSPn82J ,YSPM62J .ISXYI2) ,IVXYt2) » 

&UL0Cn6) 

LOGICAL STAY 13) 

DATA CR/1 3/ iY/'YV >IJLOC/-18S00 ,-8030 ,-6S30, -“4000 ,-2000 ,0 >2080 > 

&4000 ,6000 ,8000 ,10800 ,12000 ,14000 ,16800 ,18000 ,20000/ 

ENABLE GOtOUT HANDLER 
ASSIGN 326 TO I GOUT 
call ENABLE I'GOtOUT '.IGOUT) 

C 

C empty buffers to OUTPUT FILE 
IF fNT EQ M GO TO 3lS 
RK-NT*) 

WRITE (3,1031 (PTXBUFIM ,PTYBUFIR) ,M0RDIR) 

100 FORMAT {2F16 6,15) 

CALL FIX (201 

319 CALL DELETE (26) 

CALL EDPUT (CR ,1 1 

CALL EDPUT ('YOU MUST PICK 3 POINTS BUT NO MORE THAN 23. ' >431 
CALL BELL 
lS-1 
120=0 
ISXyciN0 
lSXY(2)-0 
CALL CICLO 
gall CIPOS USXY) 

CALL OPEN (25) 

CALL Plot 
CALL PINT (251 
CALL CLOSE 
DO 325 L-1 ,20 

3200 CALL CiCLO 
CALL POST (100) 

320 CALL CIACT (IXY.STAT) 

CALL P2W ilXY ,PT I 

3201 IF lIXYin LT. IVIEW(3n GO TO 321 
CALL UNPOST (100 J 

CALL POST (98) 

IXY(n=24000 

CALL VPLACE t08,IXY) 

IF ( NOT STAT13)) (iO TO 320 
CALL UNPOST (98) 

IF tiXY(2) LT 1JL0C17J OR. 1XY(21 CT IJLOC (8) i RETURN 
If IL CT. 3) GO TO 327 
CALL EdPUT (CR ,1) 

CALL EDPUT ('YOU MUST INPUT AT least 3 POINTS ' ,35) 

CALL SELL 
CO TO 320 



on 


321 CALL W2V IPT»1VXYJ 
ISXYm-lVXYdl 
ISXYI21-IVXY(2) 

call VPL ace ( 1 G0 , 1 VX Y ) 

IP ( NOT STATtSn GO TO 320 
PTX8UF(LS3-PTI 1) 

PTYeurtLS)“PTl2) 

CALL APPEI© 125) 

call draw IPTXBUF (LS ) .PTYBOF <LS 3 ) 

CALL POST 125) 

325 LS-LS+1 
120-20 

CALL EDPUT (CR »1 ) 

CALL EDPUT ('YOU HAVE INPUT 20 POINTS WHICH IS THE MAX. 
CALL BELL 

327 IF (L £0 20 AND 120 EQ. 20) GO TO 323 
L-L-1 

323 IF (ILINE EQ 0) CALL LINE 

GALL EGSPL IPTXBUF ,PTY9liF ,L ,XSP ,Y3P ) 

IM=*2 

AK-33L>2 
CALL OPEN (25) 

CALL HOVE (XSPM ) >V3Pn 1 ) 

IF (ILINE EQ 3) GO TO 13 
iM-2 

CALL DASH 
GO TO M 

13 lM-1 
CALL LU4E 

14 DO 329 Il-2,XA 

329 CALL DRAW ( XSP( 1 1 ) ,YSP( ID) 

CALL CLOSE 
CALL POST (26) 

pAi I cnPMT irp 11 

CALL EDPUT I'DO YOU WANT TO AEEP SPLINE? ' ,28) 

CALL BELL 

CALL ASAAN (XSPL ,1) 

CALL DELETE 125) 

IF (RSPL NE. Y) GO ID 319 
CALL FIX (26) 

IWV-0 

WRITE (3,100) XSPd I ,YSPI2) ,I«OV 

WIITE (3,100) (XSPIIM ,YSP(IK) ,m, IK-2, RK) 

RETURN 

coeouT hamjler 

328 CALL VPLACE (100,ISXY) 

IF IS7A?(3)3 CO TO 3230 
CO TO 323 

END 


A r 


' ,42) 





SUBROUT IKE REHOVJ 

IHPUCIT IKTECER»2 U-N,»l oo 

INTEGER*! ID0.H0R0125) ,IRl2) ,ISl2) ,ISKW .ILINE »NAHFIl(:5! »CR ,Y 
INTEGER*! file 

COMMON USRET 12 ,3 i ,IR ,IS ,ISEG 13 ) ,IP0St6 1 ,ISRW ,CONST ,IT ,IP0RTC4 ! > 

&lVlEW(il »file 

COMMON /K£NU/IXYf2! ,I0JAC[4) ,NT ,ID0,IM.PTX8UF(251 ,PTY8UFI2S) , 

4M0R0 .ILINE »NAMFIL ,1YL0C(16I .IXMIN.IXMAX ,IYMIN,lYMAX »¥OIACt^I 
DIMENSION WC00RC21 ,PTC2) .IVXYI2) ,ISXYt2MJLOCC10) 

LOGICAL ST AT 13) 

DATA CR/! 3/, Y/" Y V, I JLOC/-! 6300 »-8S20, -6030, -4000,-2000,0,2680, 

&4000 ,6000 ,8000 ,10000 .12600 ,14000 ,16000 ,18000 ,20800/ .ISXY/0 ,0/ 

C 

C ENABLE COtOUT HANDLER 
ASSIGN 419 TO ICOUT 
CALL ENABLE ( 'GOtOUT '.ICOUTI 
C 

CALL BFCLO 13) 

CALL BFACT !3 ,NAMF1l , T . ) 

CALL SFNEW 14, 'TEMP. DAT *,300) 

CALL EDPUT ICR ,1 ) 

CALL EDPUT rPlCK A POINT ON THE LINE TO BE REMOVED', 38) 

408 REWIND 3 

READ 13,*) ;W01AG(NN) ,NN-1 ,4 ) 

REWIND 4 

WRITE 14>*) IWDIAGINN) ,NN-I ,4) 

409 CALL GICLO 

CALL GIPOS nSXY) 

410 CALL Cl ACT nXY.STAT) 

GALL P2W 1IXY.PT) 

4100 IF lIXYin LT. IV1EWC3)) CO TO 4104 
CALL UNPOST 1100} 

CALL POST (98) 

iXYd) -24000 

CALL VPLACE (98,1XY) 

IF (NOT. STAT(3J) CO TO 410 

IF (IXY12) CT IJLOCII0) AND. IXY(2) LT I JLOCil 1 )) CO TO 4151 

GALL UNPOST (081 

RETURN 

4104 CALL W2V (PT.IVXY) 

CALL VPLACE (100,lVXY) 

ISXYin-lVXYM) 

ISXY(2)-IVXY12) 

If ( NOT STATI3)) CO TO 410 
CALL EOPUT (CR ,l ) 

CALL EOPUT ('THANK YOU' ,01 

411 READ (3,1M,END-4)0J XI ,Y1 ,N) 

100 FORMAT (2F18.6 ,I5) 

412 READ (3 ,100 ,EN0-4T8I X2,Y2 ,N2 
IF (N2 .EQ. 0) GO TO 414 

IF (PTm CE. XI AND. PT41) L€. X2) CO TO 413 
IF (PT(1) LE- XI AND. PT(1) GE X2) GO TO 413 
If (ABSlPTd 1-Xl 1 LE. .02 OR. ABSiPTd)-X2) LE 02) 

AGO TO 413 
GO TO 414 

415 IF (PT(2) GE. Y1 AND. PT(2) LE. Y2) GO TO 415 



no 


ir CPTI21 L£ Y1 AfJO. PTJ2I CE Y2J GO TO 415 
IP IABSlPTt2J-Yn LE 02 OR A3SIPTI21-Y2) LE. .02) 
AGO TO 415 

414 WRITE f4 ,1001 X) ,Y1 ,N1 
XI -X2 

Y1-Y2 
N1*N2 
GO TO 412 

C COMPUTE SLOPES Ar^O COMPARE 

415 IF lABSfX2-Xn LE 05 A^^ ABSlPTIll-Xll L£. 05) CO 

WR I TE M ,* ) -REMO V J * ,X 1 ,X2 ,PT tl ) ,Y 1 ,Y2 ,PT (2 1 
XS-IY2-Y1 )/tX2^Xn 

XSP-(PTI2)-Yn/lPTM1-Xl ) 

IF (ABSIXS-XSPi GT .15) GO TO 414 

4150 CALL OPEN (4) 

CALL BINT 13) 

CALL MOVE IXl ,Y1) 

CALL SYMBOL 15) 

CALL MOVE 1X1 ,Y1 ) 

CALL -DRAW (X2,Y2) 

CALL SYMBOL iS) 

CALL POST 14) 

CALL BLINK (4,40,20) 

CALL EOPUT (CR ,1 ) 

CALL EOPUT ( 'CONFIRM LINE BY CHOOSING REMOVE AGAIN', 57) 
GO TO 409 

4151 call unpost (^} 

IF (N1 NE 0) GO TO 416 
Nl-10 

416 WRITE 14 ,100) XI ,Y1 ,N1 

417 N2-0 

4175 WRITE (4,100) X2,Y2,N2 

READ (3 ,100 ,EN0-4176) X2 ,Y2 ,N2 
CO TO 4175 

4176 CALL BFCLO (4) 

CALL BFCEL 13.NAMF1L) 

CALL BFREN (4, 'TEMP. OAT NAME ID 

PPTliRM 

418 CALL EOPUT (CR.1 ) 

CALL EOPUT ( 'COULD NOT FIND LINE , TRY AGAIN! ' ,31 ) 

CO TO 408 

COtOUT HANDLER 

419 CALL VPLACE n00,lSXY) 

IF (STAT(3)) CO TO 489 
CO TO 410 



SUBROUTINE PDBPlT 
IfiPLiClT INTEG£R»2n-N,*) 

INTEGER*1 OUTFILHSJ ,FNAHEC13) ,£XT(5) .WSPFILHS) , 

&IPOB IPLT lY ,CR 

INTECER*1 NAHFILMSI ,FIL£ »ICO ,KORD(2S J ,IR(2) ,IS<2) ,ISKU,ILINE 
DIMENSION IATTRI6) 

COMMON U5KET12,3) ,1R ,IS ,ISEGC3J .IPOStBJ .ISAW , CONST >IT JPORTH ) 
&iyiEWM J ,FILE 

COMMON /MENU/IXY(2) >IDIAC14) »NT .100 ,IM ,PTXBUF t25 J ,PTYBUF«2SJ , 
&M0R0.1LINE .NAMFIL .lYLOCnOJ JXHIN .IXMAX .lYHlN .lYMAX .WDIACm 
COMMON/PDBCOM/LUF ILE ,M0UMI 1 33 J 
DATA IAT7R/8.0 ,0 ,256 ,256 ,0/ ,1Y/'Y V ,CR/X *8D V 
DATA FNAME/13*' V ,WSPFIL/15*' V .OUTFIL/15* ' V 
CALL PINIT 
LUFlLE-4 

CALL EDPUT ICR ,U 

CALL eOPUT rOO YOU VANT A POB FILE? ' .24) 
call ASAAN 1 1 POB, n 
CALL EDPUT ICR, 5) 

call EOPUT ('00 YOU WANT A PLT FILE? ',24) 

CALL ASAAN MPLT ,1 ) 

IF IIPDB NE. lY AND IPLT .NE lY) RETURN 
CALL FSPLIT INAMF IL .FNAME ,EXT ) 

IF UPDS NE lY) GO TO 1B0 
CALL EDPUT (CR >1) 

CALL EDPUT ('YOUR PD3 FILE IS BEU4C WRITTEN ‘ ,31 ) 

CALL EMERGE IOUTFIL ,FNAHE ,'PD8' ) 

CALL BFN£W14,0UTFIL ) 

CALL EMERGE (VSPFIL ,FNAME , 'WSP ' 1 
CALL BFNEW (6,VSPF1L) 

CALL header n AT TR) 

CALL 8FACT13,NAMFIL ) 

READ(3 ,* IXMiN ,YMIN ,XMAX ,YMAX 

XEX-XMAX-XMIN 

YEX-YMAX-YMIN 

XSC-1 

YSC- I . 

IF IXEX CT . YEX )YSC-YEX/XEX 
IFIYEX CT XEXIXSC-XEX/YEX 
SXEX-XSCt49150 
SYEX-YSCt491S0 

IF (XMAX^XMIN LT. 00}} CO TO 10 
I WX I - < XM IN/XEX )»$XEX-SXEX/2 
IWX2- (XMAX/XEX )*SX€X-SXEX/2 
GO TO 11 

10 IWX1— SXEX/2 
IWX2-SXEX/2 

11 If (YMAX^YMIN LT 001) GO TO 12 
IWYI- I YMIN/YEX )*SVEX“SYEX/2 . 

IWY2- ( YMAX/YEX USYEX-SYEX/2 . 

CO TO 13 

12 IWYl— SYEX/2 
1WY2-SYEX/2 

13 WRITE (6,1 IIWXl ,1WY1 ,IWX2,ItfV2 
IUX1--IWX2 



VRITEC6.2HWX1 ,IWT1 ,1VX2 ,1WY2 

1 FORMAT ("WIND *,417) 

2 fOSMATt 'VIEW ' ,417) 

CALL SFCLOIO) 

20 RE AD 13 ,* .END-50 )X ,Y ,IB 
IF £13 CT 2)GO TO 20 
IX-SXEX/XEX*X 
JY-SYEX/YEX»Y 

IF (IB EQ 01CALL MOVED !1X,JY) 

IF (13 EO 1 JCAtL DRAtfDlIX.JYl 
IF(ia EO 2ICALL DASHDdX.JYl 
CO TO 20 
50 CALL PCLOSE 
CALL BFCLO 13) 

WRITE M ,*) 'PD8 FILE WRITTEN' 

100 IF (IPLT NE. IV) RETURN 
CALL EDPUT (CR ,1) 

CALL EDPUT I'YDUR PLT FILE IS BEING WRITTEN. 
CALL FMERGE lOUTFlt ,Fr4AM£ ,'PLT' ) 

CALL BFNEW (15,0UTFILJ 
CALL GONEW (15) 

CALL BUFF t . 7 . ) 

CALL BFACT (3.NAMFIL) 

READ (3,*) VDIAC 
CALL VIEW II VIEW) 

CALL WIND (WOIACl 

101 READ (3 .*,ENO-120) X ,Y ,N 
IF IN EQ 1 J CALL uINE 
IF (N EQ. 2) CALL DASH 

IF (N EQ 0) CALL KOVE (X,Y) 

IF IN NE. 0) CALL DRAW IX, Y) 

CO TO 101 
120 CALL COCLO 

CALL BFCLO (15) 

WRITE II ,») 'PLT file WRITTEN* 

RETURN 

END 
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c 

C*»»fttMO)lFIEO FOB ROUT 1 FOR DCL FILE HA^^DLINC«»» 

C subroutine— FCLGSE TEKTRONIX, INC Ni 

C 

subroutine PCLOSE 
author 

John F . OiNopoli 

USAGE 

THIS ROUTINE INSURES THAT ALL FDH'S ARE OUTPUT TO THE FILE 
BEFORE IT IS CLOSED 

CALLING SEQUENCE 

CALL PCLOSE 

input PARAMETERS 


NONE: 


IMPLICIT INTEGER*? U-N.o) 

integer*? outbuf 

COMMON/PD3COM/LUFILE ,MAXINO .MODE , INDEX ,CUTBUF {123) .LENFOM ,LENOPP 
IF (MODE NE 01CALL OPAIR(- l ,IX,IY) 

CALL SFCLOILUPIlE) 

RETURN 

END 
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